Option Explicit
Sub F_Sample048()
   'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
   'Microsoft ADO Ext. 2.X for DDL and Security ]wޥζ
   'ոF_Data.mdb
    Dim myCon     As New ADODB.Connection
    Dim myRst     As ADODB.Recordset
    Dim myFileName As String
    Dim mySht     As Worksheet
    Dim i         As Long
    myFileName = "F_Data.mdb"			'wɮצW
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
   '}Ҹƿ]]޼ƤPAҨoT]|ܤơ^
   'Set myRst = myCon.OpenSchema(adSchemaColumns)
   'Set myRst = myCon.OpenSchema(adSchemaProcedures)
   'Set myRst = myCon.OpenSchema(adSchemaViews)
    Set myRst = myCon.OpenSchema(adSchemaPrimaryKeys)
    Set mySht = Worksheets.Add
    With myRst
       'W
        For i = 1 To .Fields.Count
            mySht.Cells(1, i).Value = .Fields(i - 1).Name
        Next
       'O
        mySht.Range("A2").CopyFromRecordset myRst
        .Close
    End With
    myCon.Close
    Set myRst = Nothing					'
    Set myCon = Nothing
End Sub
